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SOURCE CODE APPENDIX 



Software UART for SPI-to-RS232 
for National Semiconductor ' s ' C0P8SAx 

Rev 0.1, February 20, 199 8 

> Configured for COP 8 SAC @ 10MHz 

> Hardware target = COP8-EVAL-HI01 (COP8 Evaluation Board) 

> Uses "HyperTerminal " under Windows 95 

. by: Steven Goldman 

National Semiconductor 

Senior Field Applications Engineer 



.TITLE SPI-232 

.CHIP 8 SAC 

. SECT MAIN , ROM , ABS=0 



- DECLARATIONS : 



PORTFD 




0x94 


PORTFC 




0x95 


PORTFP 




0x96 


DIPS 




0x96 


LEDS 




OxDC 


TAURLOB 




0E6 


TAURHIB 




0E7 


TIMERLO 




0EA 


TIMERHI 




0EB 


TAURLO 




DEC 


TAURHI 




0ED 


CNTRL 




0EE 


PSW 




0EF 


PORTLD 




0D0 


PORTLC 




0D1 


PORTLP 




0D2 


PORTGD 


— 


0D4 


PORTGC 


— 


0D5 


PORTGP 




0D6 


R0 




0F0 


Rl 




0F1 


TRUN 




4 


TPND 




5 


RECREG 




020 


STKPTR 




OxFD 



PORTF Data Reg 

PORTF Config Reg 

PORTF Register (Input Only) 

Dip Switches 

LED' s 

Timer B Reload, Low 
Timer B Reload, High 



Timer A Reload, Low 
Timer A Reload, High 



; REG TO HOLD RECEIVED DATA. 
; Stack Pointer 
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RECEIVE PORTION 

1/9600 BAUD = 104 uSEC/BIT DECIMAL = 0068 HEX 

1/2 BIT TIME IS = 52 uSEC = 52 DECIMAL = 0034 HEX. 



START: LD PORTFC, #0x0 0 

LD A, DIPS 
IFEQ A, #0x00 
JMP REVNUM 

IFEQ A, #0x01 
JMP RECROUT 

IFEQ A, #0x02 
JMP CALLXMIT 

IFEQ A, #0x03 
JMP DEBUG 1 

IFEQ A, #0x04 
JMP SEND_N 

LD A, #0xFF 
JSR ATOLEDS 
JMP HERE 



; Setup PortF as INPUT 
Dislay Revision Number 

Receive Routine 

Transmit Routine 

Toggles RXD line 

Transmit "N" 

Error Trap 



REVNUM: 



LD A, #0x17 
JSR ATOLEDS 
JMP HERE 



DEBUG1 : JSR ATOLEDS 

RBIT 0, PORTLC 
SB IT 1, PORTLC 
LD B, #PORTLD 

TOGGLE: SBIT 1, [B] 
RBIT 1, [B] 
JP TOGGLE 



Displays the Routine Number (3) 
Make sure it is input pin 
Configure RXD pin as OUTPUT 



RECROUT: JSR ATOLEDS 
RBIT 0, PSW 
LD SP, #02F 
RC 

LD PORTGC ,#0x0 8 
LD PORTLC, #0x0E 
SBIT-1, PORTLD 
RBIT 3, PORTLD 



Disable all interrupts. 



SET UP Gl,& G2 AS INPUTS. 

Set up L0 as input, L1/L3 as output. 
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STRTRX : CLRA 

RBIT 3, PORTLD 

RBIT TRUN , CNTRL 
LD TIMERLO, #OxOE 

LD TIMERHI, #0x00 
SETIMR: LD TAURLO , #0x62 

LD TAURHI , #0x0 0 . 
LD TAURLO B , #0x0 0 
LD TAURHIB, #0x0 0 

LD CNTRL, #0xA0 

LD Rl, #0x08 



IDLE: 



IFBIT 0, PORTLP 
JP TRIGGER * 
JP IDLE 



RBIT 2, PORTLD 
TRIGGER: SBIT 3, PORTLD 

CHECK: SBIT TRUN , CNTRL 

RBIT TPND , PSW 
CHECK0: IFBIT TPND , PSW 
JP CONTST 
JP CHECK0 
CONTST: RBIT TRUN, CNTRL 

SBIT TRUN , CNTRL 
RBIT TPND , PSW 
IFBIT 0, PORTLP 
JP VALSTART 
JP STRTRX 



; Make sure timerl is off. 
Load Half timer LB 
; Load Half timer HB 
Load Baudrate LB 
; Load Baudrate HB 



(n-1) Data bits=8 



Start Timer 

Reset Interrupt pending flag 
Test Int flag 



Stop the timer 

; Start the timer 

Reset Interrupt Pending flag 

; Test for valid Start Bit 



VALSTART: SBIT 2, PORTLD 

RBIT 2, PORTLD 



RECEV: 

CHECK1: IFBIT TPND, PSW 
JP CONT 
JP CHECK1 
CONT: RBIT TRUN, CNTRL 

SBIT TRUN , CNTRL 
RBIT TPND, PSW 
SBIT 2, PORTLD 
RBIT 2, PORTLD 

LD A, RECREG 
SC 

IFBIT 0, PORTLP 
RC 

RRCA 

X A, RECREG 
DRSZ Rl 
JP RECEV 



Receive bit in the middle 



; Stop the timer 
; Start the timer 

; Sampling pulse, per bit 



Load receive buffer • 

Assume this was at Ground, then 

If at -+5VDC , then "0" 

Reset Carry is skipped if "1" 

Either way, rotate Right 

Store as latest value 

Are we done yet? 

No . . . get more 
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FINISH: SBIT 3, PORTLD ; Golly! We are almost done 

LD A, RECREG ; Display byte 
JSR ATOLEDS 

RBIT 3, PORTLD ; Trigger scope (end of frame) 

JP STRTRX ; Go get more 



ATOLEDS : 



Value must be in Accumulator 

Since 1=LED Off, "A" must 
become NOT A (or /A) . Inverted 
value is then displayed. Flow 
returns to caller. 



HERE: 



IFEQ A, #0X0D 
RET 

XOR A, #OxFF 
LD B, #LEDS 
X A, [B] 
LD A, LEDS 
XOR A, #OxFF 
RET 



JMP HERE 



; If carriage return (OxOD) , return. 
Invert each bit 
Transfer /A to LED's 



Subroutine used to wait 
; for Reset 



TRANSMISSION PORTION 
Generic Calling Routine 



XMIT: 



SBIT 3, PORTLC 
SBIT 1, PORTLC 
RBIT 0, PORTLC 
LD TIMERLO, #0x62 
LD TIMERHI, #0x00 
LD TAURLO , #0x62 
LD TAURHI , #0x0 0 
LD TAURLOB , #0x0 0 
LD TAURHIB , #0x00 
LD CNTRL , #0xA0 

LD Rl, #0x08 

RBIT 3, PORTLD 



Soft UART Transmit routine 
Uses L.l as an output 
Assumes L.O is input 
Supports Half -duplex mode 

Set TRIGGER (L.3) as output 
RXD (send to PC) 
TXD (from PC) 
Setup Timers 



Set for 8 data bits 

Set TRIGGER (L.3) LOW for frame sync 
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SB IT 3, PORTLD 
RBIT 1, PORTLD 
JSR WFOBT 



MOREBITS: RRCA 



PORTLD 



RBIT 1, 
IFC 

SB IT 1, PORTLD 
JSR WFOBT 
DRSZ Rl 
JMP MOREBITS 

SENDSTOP: SBIT 1, PORTLD 
JSR WFOBT 
RET 



Set TRIGGER (L.3) HIGH for frame sync 
Transmit Start Bit (0) 
Wait For One Bit Time 

More next bit to "CARRY" 

Assume we XMIT "0" 
Are we wrong? 
Sorry, XMIT "1" 
Either way, wait 



Return to calling routine 



WFOBT : 



BT DONE: 



SBIT TRUN, 
IFBIT TPND , 
JP BT_DONE 
JP WFOBT 
RBIT TPND, 
RET 



CNTRL 
PSW 



PSW 



; Wait For One Bit Time 
; Get ready for next one 
; Reset Timer 

; Return to Calling Routine 



CALLXMIT : 



LD LEDS, #0xF8 
LD A, #' C 
JSR XMIT 
LD A, #'0' 
JSR XMIT 
LD A, #'P' 
JSR XMIT 
LD A, #'8' 
JSR XMIT 
LD A, #'-' 
JSR XMIT 
JMP CALLXMIT 



Transmit "COP8-' 



Do it again, & again, & again. 



SEND_N: LD LEDS, #0xFB 
AA : ' LD A, #'N' 

JSR XMIT 

JMP AA 



. END START 
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